import Data.Char

factorial :: Integer -> Integer
factorial n = product [1..n]

euler_020 = sum $ map (( subtract 48 ).ord) $ (show.factorial) 100